home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 10 / Grapevine 10 (Disk 2 of 3).adf / sources / GVT_Demo.s < prev    next >
Text File  |  1990-09-13  |  688b  |  44 lines
  1.     ; GVT_demo.s by Shagratt of LSD
  2.  
  3.     ; this is distributable ONLY with GRAPEVINE ISSUE 10.
  4.  
  5.     section    ddp,code
  6.  
  7.     incdir    "dh0:includes/"
  8.     include    "libraries/gvt.i"
  9.  
  10.     ; gvt call corrupts a1,a2,a3,a4,a5,a6,d0,d1
  11.     ; dont push onto stack or it guru's (!!!)
  12.  
  13.     move.l    #winname,d1
  14.     move.l    #1005,d2
  15.     gvtcall    $fffc    ; Open()
  16.  
  17.     cmp.l    #0,d1
  18.     beq    error
  19.     move.l    d1,handle
  20.     
  21.     move.l    handle,d1
  22.     move.l    #message,d2
  23.     move.l    #messlen,d3
  24.     gvtcall    $ffe8    ; Write()
  25.  
  26.     move.l    #100,d1
  27.     gvtcall    $bc    ; Delay()
  28.     
  29.     move.l    handle,d1
  30.     gvtcall    $174    ; Close()
  31.  
  32. error:    clr.l    d0
  33.     rts
  34.  
  35.  
  36. handle:        dc.l    0
  37. winname:    dc.b    "raw:100/50/300/100/MY WINDOW",0
  38. message:    dc.b    "Lard is the food of the future",0
  39. messlen    = *-message
  40.  
  41.     
  42.     END
  43.  
  44.